home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / manual-p / olxvman.tgz / olxvman.tar / olxvman / src-test / olxvman.G < prev    next >
Text File  |  1995-02-01  |  9KB  |  271 lines
  1. ;GIL-2
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   OptionMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :label                  ""
  9.     :label-type             :string
  10.     :menu-type              :command
  11.     :menu-handler           nil
  12.     :menu-title             "Options"
  13.     :menu-item-labels       ("Search..." "Show Version" "Print Current Page" "Quit" )
  14.     :menu-item-label-types  (:string :string :string :string )
  15.     :menu-item-defaults     (nil nil nil nil )
  16.     :menu-item-handlers     (SearchHandler ShowVersionHandler PrintHandler QuitHandler )
  17.     :menu-item-menus        (nil nil nil nil )
  18.     :menu-item-colors       ("" "" "" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21. )
  22. (
  23.     :type                   :base-window
  24.     :name                   OLXVMan
  25.     :owner                  nil
  26.     :width                  456
  27.     :height                 280
  28.     :background-color       ""
  29.     :foreground-color       ""
  30.     :label                  "OLXV Man"
  31.     :label-type             :string
  32.     :mapped                 t
  33.     :show-footer            t
  34.     :resizable              t
  35.     :icon-file              "olxvman.icon"
  36.     :icon-mask-file         ""
  37.     :event-handler          nil
  38.     :events                 ()
  39.     :user-data              ()
  40. )
  41. (
  42.     :type                   :control-area
  43.     :name                   controls1
  44.     :owner                  OLXVMan
  45.     :help                   ""
  46.     :x                      0
  47.     :y                      0
  48.     :width                  456
  49.     :height                 280
  50.     :background-color       ""
  51.     :foreground-color       ""
  52.     :show-border            nil
  53.     :menu                   nil
  54.     :event-handler          nil
  55.     :events                 ()
  56.     :user-data              ()
  57. )
  58. (
  59.     :type                   :button
  60.     :name                   OptionButton
  61.     :owner                  controls1
  62.     :help                   "The Options available for OLXV Man are as follows:
  63.  
  64. Search - Brings up the search window which allows the manual pages to be searched for either a specific page, or pages with a specific topic.
  65.  
  66. Show Version - Displays the current version of the program.
  67.  
  68. Print Current Page - Prints the manual page that is in the current manual page display window. The current manual page display window is the window that is unpinned. Manual pages in a pinned display window cannot be printed.
  69.  
  70. Quit - Exits OLXV Man."
  71.     :x                      8
  72.     :y                      12
  73.     :constant-width         nil
  74.     :button-type            :normal
  75.     :width                  80
  76.     :height                 19
  77.     :foreground-color       ""
  78.     :label                  "Options"
  79.     :label-type             :string
  80.     :menu                   OptionMenu
  81.     :notify-handler         nil
  82.     :event-handler          nil
  83.     :events                 ()
  84.     :user-data              ()
  85. )
  86. (
  87.     :type                   :scrolling-list
  88.     :name                   ManualSections
  89.     :owner                  controls1
  90.     :help                   "The Manual Sections list provides a listing of the manual sections that are available. Selecting a manual section will cause the manual pages for the section to be displayed in the Manual Pages list."
  91.     :x                      4
  92.     :y                      56
  93.     :width                  200
  94.     :height                 217
  95.     :foreground-color       ""
  96.     :label                  "Manual Sections"
  97.     :label-type             :string
  98.     :layout-type            :vertical
  99.     :rows                   10
  100.     :read-only              t
  101.     :multiple-selections    nil
  102.     :selection-required     t
  103.     :menu                   nil
  104.     :notify-handler         ManualSectionNotify
  105.     :event-handler          nil
  106.     :events                 ()
  107.     :user-data              ()
  108. )
  109. (
  110.     :type                   :scrolling-list
  111.     :name                   ManualPages
  112.     :owner                  controls1
  113.     :help                   "The Manual Pages list is a listing of all manual pages that are available in the current section. A manual page can be displayed by selecting an item in the list.
  114.  
  115. If the manual page is not formatted for display, it will be formatted. If the directory required for storing manual formatted manual pages has the correct permissions, the user will be prompted to save the manual page."
  116.     :x                      232
  117.     :y                      56
  118.     :width                  200
  119.     :height                 217
  120.     :foreground-color       ""
  121.     :label                  "Manual Pages"
  122.     :label-type             :string
  123.     :layout-type            :vertical
  124.     :rows                   10
  125.     :read-only              t
  126.     :multiple-selections    nil
  127.     :selection-required     t
  128.     :menu                   nil
  129.     :notify-handler         ManualPageNotify
  130.     :event-handler          nil
  131.     :events                 ()
  132.     :user-data              ()
  133. )
  134. (
  135.     :type                   :popup-window
  136.     :name                   SearchPopup
  137.     :owner                  OLXVMan
  138.     :width                  207
  139.     :height                 83
  140.     :background-color       ""
  141.     :foreground-color       ""
  142.     :label                  "Manual Search"
  143.     :label-type             :string
  144.     :mapped                 nil
  145.     :show-footer            t
  146.     :resizable              t
  147.     :pinned                 nil
  148.     :done-handler           nil
  149.     :event-handler          nil
  150.     :events                 ()
  151.     :user-data              ()
  152. )
  153. (
  154.     :type                   :control-area
  155.     :name                   controls2
  156.     :owner                  SearchPopup
  157.     :help                   ""
  158.     :x                      0
  159.     :y                      0
  160.     :width                  207
  161.     :height                 83
  162.     :background-color       ""
  163.     :foreground-color       ""
  164.     :show-border            nil
  165.     :menu                   nil
  166.     :event-handler          nil
  167.     :events                 ()
  168.     :user-data              ()
  169. )
  170. (
  171.     :type                   :text-field
  172.     :name                   SearchField
  173.     :owner                  controls2
  174.     :help                   "The search string is a lower case string that represents either the manual page or topic that will be the focus of the search."
  175.     :x                      12
  176.     :y                      8
  177.     :width                  184
  178.     :height                 32
  179.     :foreground-color       ""
  180.     :text-type              :alphanumeric
  181.     :label                  "Please enter search string:"
  182.     :label-type             :string
  183.     :value-x                12
  184.     :value-y                25
  185.     :layout-type            :vertical
  186.     :value-length           23
  187.     :stored-length          80
  188.     :read-only              nil
  189.     :notify-handler         nil
  190.     :event-handler          nil
  191.     :events                 ()
  192.     :user-data              ()
  193. )
  194. (
  195.     :type                   :button
  196.     :name                   ManualButton
  197.     :owner                  controls2
  198.     :help                   "The Manual Page search will locate a manual page on the entered command and display it in the current manual page text window."
  199.     :x                      8
  200.     :y                      56
  201.     :constant-width         nil
  202.     :button-type            :normal
  203.     :width                  96
  204.     :height                 19
  205.     :foreground-color       ""
  206.     :label                  "Manual Page"
  207.     :label-type             :string
  208.     :menu                   nil
  209.     :notify-handler         SearchNotify
  210.     :event-handler          nil
  211.     :events                 ()
  212.     :user-data              ()
  213. )
  214. (
  215.     :type                   :button
  216.     :name                   AproposButton
  217.     :owner                  controls2
  218.     :help                   "Apropos search looks for manual pages that contain the text string requested. This function is the equivalent of \"man -k\"."
  219.     :x                      128
  220.     :y                      56
  221.     :constant-width         nil
  222.     :button-type            :normal
  223.     :width                  67
  224.     :height                 19
  225.     :foreground-color       ""
  226.     :label                  "Apropos"
  227.     :label-type             :string
  228.     :menu                   nil
  229.     :notify-handler         SearchNotify
  230.     :event-handler          nil
  231.     :events                 ()
  232.     :user-data              ()
  233. )
  234. (
  235.     :type                   :popup-window
  236.     :name                   ManualPagePopup
  237.     :owner                  OLXVMan
  238.     :width                  506
  239.     :height                 675
  240.     :background-color       ""
  241.     :foreground-color       ""
  242.     :label                  "Manual Page"
  243.     :label-type             :string
  244.     :mapped                 nil
  245.     :show-footer            t
  246.     :resizable              t
  247.     :pinned                 nil
  248.     :done-handler           ManualPagePinned
  249.     :event-handler          nil
  250.     :events                 ()
  251.     :user-data              ()
  252. )
  253. (
  254.     :type                   :text-pane
  255.     :name                   ManualPageText
  256.     :owner                  ManualPagePopup
  257.     :help                   "The manual page text is displayed in a scrolling text window that cannot be edited."
  258.     :x                      0
  259.     :y                      0
  260.     :width                  506
  261.     :height                 675
  262.     :background-color       ""
  263.     :foreground-color       ""
  264.     :show-border            t
  265.     :read-only              t
  266.     :event-handler          nil
  267.     :events                 ()
  268.     :user-data              ()
  269. )
  270. )
  271.